home *** CD-ROM | disk | FTP | other *** search
/ IBM InfoROM for OS/2 Beta 1995 January / IBM InfoROM for OS2 Beta 1-1995.ISO / testcert / mmedia / system / ap2 / scripts / vr1___if.p2s < prev    next >
Encoding:
Text File  |  1994-05-05  |  4.6 KB  |  198 lines
  1. ###########################################################################
  2. #
  3. # file name: VR2____1.P2S
  4. # description:  open video in, record, play and close
  5. # settings: 
  6. #           rate: 30 frames per sec
  7. #           compression: ulti 
  8. #           video quality: 5000
  9. #           audio: 22050 samples per sec, 16 bits, 2 channel, volume 100
  10. #           video source: 640 x 480
  11. #           video destination:  80 x 60
  12. #
  13. ###########################################################################
  14.  
  15. ############################################
  16. #
  17. #   open Video In
  18. #
  19. ############################################
  20.  
  21. OPEN DIGITALVIDEO02 ALIAS VID SHAREABLE NOTIFY
  22. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_OPEN #1
  23. @WAIT_NOTIFY 1 45000
  24.  
  25. ############################################
  26. #
  27. #   set video monitor on/off
  28. #
  29. ############################################
  30.  
  31. SET VID MONITOR ON NOTIFY
  32. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #2
  33. @WAIT_NOTIFY 2 30000
  34.  
  35. status VID monitor wait
  36. =ON
  37.  
  38. ############################################
  39. #
  40. #   enable audio monitor
  41. #
  42. ############################################
  43.  
  44. CONNECTION VID QUERY TYPE WAVE STREAM ALIAS AMP WAIT
  45.  
  46. SET AMP MONITOR ON WAIT
  47.  
  48. ############################################
  49. #
  50. #   load a new file
  51. #
  52. ############################################
  53.  
  54. LOAD VID NEW NOTIFY
  55. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #3
  56. @WAIT_NOTIFY 3 30000
  57.  
  58. ############################################
  59. #
  60. #   set time format to milliseconds
  61. #
  62. ############################################
  63.  
  64. SET VID TIME FORMAT MILLISECONDS NOTIFY
  65. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #4
  66. @WAIT_NOTIFY 4 30000
  67.  
  68. ############################################
  69. #
  70. #   set the frames per sec (15,30)
  71. #
  72. ############################################
  73.  
  74. SET VID VIDEO RECORD RATE 30 NOTIFY
  75. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #5
  76. @WAIT_NOTIFY 5 30000
  77.  
  78.  
  79. ############################################
  80. #
  81. #   set compression type:
  82. #     - DIB:  raw = uncompressed
  83. #     - ULTI: ultimotion
  84. #     - RT21: indeo
  85. #
  86. ############################################
  87.  
  88. SET VID VIDEO COMPRESSION ULTI NOTIFY
  89. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #6
  90. @WAIT_NOTIFY 6 30000
  91.  
  92.  
  93. ############################################
  94. #
  95. #   set video quality (0-10000)
  96. #
  97. ############################################
  98.  
  99. SET VID VIDEO QUALITY 5000 NOTIFY
  100. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #7
  101. @WAIT_NOTIFY 7 30000
  102.  
  103. ############################################
  104. #
  105. #   set audio parameters:
  106. #     - SAMPLESPERSEC: 11025,22050,44100
  107. #     - CHANNEL: 1,2
  108. #     - BITSPERSAMPLE: 8,16
  109. #     - VOLUME: 0-100
  110. #
  111. ############################################
  112.  
  113. SET VID SAMPLESPERSEC 22050 NOTIFY
  114. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #8
  115. @WAIT_NOTIFY 8 30000
  116.  
  117. status VID samplespersec wait
  118. =22050
  119.  
  120. SET VID CHANNELS 2 NOTIFY
  121. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #10
  122. @WAIT_NOTIFY 10 30000
  123.  
  124. SET VID BITSPERSAMPLE 16 NOTIFY
  125. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #12
  126. @WAIT_NOTIFY 12 30000
  127.  
  128. SET VID AUDIO VOLUME 100 NOTIFY
  129. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SET #14
  130. @WAIT_NOTIFY 14 30000
  131.  
  132. ############################################
  133. #
  134. #   set window size
  135. #
  136. ############################################
  137.  
  138. PUT VID RECORD SOURCE AT 0 0 640 480 NOTIFY
  139. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #16
  140. @WAIT_NOTIFY 16 30000
  141.  
  142. PUT VID RECORD DESTINATION AT 0 0 80 60 NOTIFY
  143. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PUT #18
  144. @WAIT_NOTIFY 18 30000
  145.  
  146. ############################################
  147. #
  148. #   message to user: play source
  149. #
  150. ############################################
  151.  
  152. @BREAK Make sure that the source is already playing
  153.  
  154. ############################################
  155. #
  156. #   record for 10 seconds
  157. #
  158. ############################################
  159.  
  160. RECORD VID TO 10000 NOTIFY
  161. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_RECORD #20
  162. @WAIT_NOTIFY 20 50000
  163.  
  164. ############################################
  165. #
  166. #   play and save the file
  167. #
  168. ############################################
  169.  
  170. PLAY VID FROM 0 NOTIFY
  171. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #22
  172. @WAIT_NOTIFY 22 50000
  173.  
  174. save VID delete.avi notify
  175. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_SAVE #23
  176. @WAIT_NOTIFY 23 50000
  177.  
  178. stop VID wait
  179.  
  180. load VID delete.avi notify
  181. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_LOAD #25
  182. @WAIT_NOTIFY 25 50000
  183.  
  184. PLAY VID FROM 0 NOTIFY
  185. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_PLAY #27
  186. @WAIT_NOTIFY 27 50000
  187.  
  188.  
  189. ############################################
  190. #
  191. #   close video in
  192. #
  193. ############################################
  194. CLOSE VID NOTIFY
  195. +MM_MCINOTIFY MCI_NOTIFY_SUCCESSFUL MCI_CLOSE #29
  196. @WAIT_NOTIFY 29 30000
  197.  
  198.